home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Toolbox
/
Visual Basic Toolbox (P.I.E.)(1996).ISO
/
editors
/
postit32
/
postit4.frm
< prev
next >
Wrap
Text File
|
1995-10-26
|
14KB
|
403 lines
VERSION 4.00
Begin VB.Form serverform
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
BorderStyle = 1 'Fixed Single
Caption = "PostIt Server 32 Bit Alpha 1a"
ClientHeight = 4728
ClientLeft = 1320
ClientTop = 2208
ClientWidth = 5472
BeginProperty Font
name = "MS Sans Serif"
charset = 0
weight = 700
size = 7.8
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 5112
Icon = "POSTIT4.frx":0000
Left = 1272
LinkMode = 1 'Source
LinkTopic = "POSTIT"
MaxButton = 0 'False
ScaleHeight = 4728
ScaleWidth = 5472
Top = 1872
Width = 5568
WindowState = 1 'Minimized
Begin Threed.SSPanel Panel3D1
Height = 4716
Left = 0
TabIndex = 5
Top = 0
Width = 5484
_Version = 65536
_ExtentX = 9673
_ExtentY = 8319
_StockProps = 15
Caption = "Messages In Queue..."
BackColor = -2147483633
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
name = "Arial"
charset = 0
weight = 700
size = 18
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
BevelWidth = 2
BevelInner = 1
Alignment = 6
Begin Threed.SSPanel Panel3D2
Height = 3660
Left = 192
TabIndex = 8
Top = 480
Width = 5100
_Version = 65536
_ExtentX = 8996
_ExtentY = 6456
_StockProps = 15
BackColor = -2147483633
BevelWidth = 2
BevelInner = 1
Alignment = 6
Begin Threed.SSPanel Panel3D4
Height = 2220
Left = 192
TabIndex = 6
Top = 864
Width = 4716
_Version = 65536
_ExtentX = 8319
_ExtentY = 3916
_StockProps = 15
Caption = "Message"
BackColor = -2147483633
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
name = "Arial"
charset = 0
weight = 700
size = 12
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
BevelWidth = 2
BevelInner = 1
Alignment = 6
Begin VB.Label Label2
Appearance = 0 'Flat
BackColor = &H0000FFFF&
BorderStyle = 1 'Fixed Single
Caption = "Click on 'Check For New Messages' below to access your message queue (There may not be any messages though !)"
DataField = "MESSAGE"
DataSource = "Data1"
BeginProperty Font
name = "Arial"
charset = 0
weight = 700
size = 12
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 1644
Left = 192
TabIndex = 10
Top = 384
Width = 4332
End
End
Begin Threed.SSPanel Panel3D3
Height = 684
Left = 192
TabIndex = 11
Top = 192
Width = 4716
_Version = 65536
_ExtentX = 8319
_ExtentY = 1207
_StockProps = 15
Caption = "From"
BackColor = -2147483633
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
name = "Arial"
charset = 0
weight = 700
size = 12
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
BevelWidth = 2
BevelInner = 1
Alignment = 1
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H0000FFFF&
BorderStyle = 1 'Fixed Single
DataField = "FROM"
DataSource = "Data1"
BeginProperty Font
name = "Arial"
charset = 0
weight = 700
size = 12
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 300
Left = 1344
TabIndex = 12
Top = 192
Width = 3180
End
End
Begin Threed.SSCommand Command3D1
Height = 300
Left = 288
TabIndex = 9
Top = 3168
Width = 4620
_Version = 65536
_ExtentX = 8149
_ExtentY = 529
_StockProps = 78
Caption = "Activate Message"
ForeColor = 16711680
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
name = "Arial"
charset = 0
weight = 700
size = 12
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
End
End
Begin VB.Data Data1
Appearance = 0 'Flat
BackColor = &H0000FFFF&
Caption = "Messages"
Connect = ""
DatabaseName = "I:\DATABASE\NUMATIC\postit\NOTES.MDB"
Enabled = 0 'False
Exclusive = 0 'False
BeginProperty Font
name = "Arial"
charset = 0
weight = 700
size = 9.6
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
Height = 300
Left = 192
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 4224
Width = 2316
End
Begin Threed.SSCommand updatebutton
Height = 300
Left = 2592
TabIndex = 7
Top = 4224
Width = 2700
_Version = 65536
_ExtentX = 4763
_ExtentY = 529
_StockProps = 78
Caption = "Check For New Messages"
ForeColor = 255
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
name = "Arial"
charset = 0
weight = 700
size = 9.6
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
End
End
Begin VB.TextBox RECORDID
Appearance = 0 'Flat
Height = 612
Left = 9408
TabIndex = 4
Text = "Text1"
Top = 7200
Width = 2292
End
Begin VB.TextBox NAMER
Appearance = 0 'Flat
Height = 612
Left = 9408
TabIndex = 3
Text = "Text1"
Top = 6480
Width = 2292
End
Begin VB.TextBox sounder
Appearance = 0 'Flat
Height = 612
Left = 9408
TabIndex = 2
Text = "Text1"
Top = 5760
Width = 2292
End
Begin VB.TextBox caller
Appearance = 0 'Flat
Height = 612
Left = 9408
TabIndex = 1
Text = "Text1"
Top = 5040
Width = 2292
End
Begin VB.TextBox datum
Appearance = 0 'Flat
Height = 492
Left = 9408
MultiLine = -1 'True
TabIndex = 0
Text = "POSTIT4.frx":030A
Top = 4440
Width = 2292
End
End
Attribute VB_Name = "serverform"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Private Sub Command3D1_Click()
' activate this message !
' if data1.caption shows 0 records, then exit
If Left$(Data1.Caption, 1) = "0" Then Exit Sub
' if data1 is not enabled, exit sub
If Data1.Enabled = False Then Exit Sub
' retrieve from the bound controls - and place as if network dde had taken place
caller.Text = label1.Caption
NAMER.Text = label1.Caption
sounder.Text = Data1.Recordset.Fields("sound")
datum.Text = Data1.Recordset.Fields("message")
RECORDID.Text = Str$(Data1.Recordset.Fields("record_id"))
DoEvents
' start a new postit note form
Dim POSTIT As New POSTIT
' fill in the details
POSTIT.datum.Text = datum.Text
POSTIT.status.Caption = "FROM : " + caller.Text + " - " + Format$(Time, "hh-mm")
POSTIT.NAMER.Text = NAMER.Text
POSTIT.RECORDID = RECORDID.Text
POSTIT.messagenumber.Caption = "Message #" + RECORDID.Text
' WANT TO PLAY A SOUND...
SoundName$ = (sounder.Text)
X% = sndPlaySound(ByVal SoundName$, 1)
' show the postit
POSTIT.Show
End Sub
Private Sub Data1_Error(DATAERR As Integer, response As Integer)
A = MsgBox("There are no more entries in the queue !", 64, "For your information")
response = 0
End Sub
Private Sub Data1_Reposition()
Data1.Caption = Trim$(Str$(Data1.Recordset.RecordCount)) + " Messages"
DoEvents
End Sub
Private Sub Form_LinkExecute(cmdstr As String, CANCEL As Integer)
' we are being hailed ! (beam me up scotty)
' two commands are in use for this server, OK and CLOSE
If cmdstr = "OK" Then
' start a new postit form
Dim POSTIT As New POSTIT
' fill in the details
POSTIT.datum.Text = datum.Text
POSTIT.status.Caption = caller.Text + " - " + Format$(Time, "hh-mm")
POSTIT.NAMER.Text = NAMER.Text
POSTIT.RECORDID.Text = RECORDID.Text
POSTIT.messagenumber.Caption = "Message #" + RECORDID.Text
' WANT TO PLAY A SOUND...
SoundName$ = (sounder.Text)
X% = sndPlaySound(ByVal SoundName$, 1)
' show the form
POSTIT.Show
Else
If cmdstr = "CLOSE" Then
' close me down !
Unload Me
End If
End If
CANCEL = 0
End Sub
Private Sub Form_Resize()
' kludge to disable or enable the data1 control.
If WindowState = 1 Then
Data1.Enabled = False
DoEvents
Label2.Caption = "Click on 'Check For New Messages' below to access your message queue (There may not be any messages though !)"
label1.Caption = ""
End If
End Sub
Private Sub updatebutton_Click()
' go check for new messages
Data1.RecordSource = "SELECT * FROM NOTELOG WHERE USERNAME = '" + Environ$("WINNAME") + "' AND READ = FALSE ORDER BY DATE DESC"
Data1.Enabled = True
Data1.Refresh
End Sub
